program hello
  var
    a,b,c: int
  
  unused() : int
  begin
    -- return 0
  end unused
  
begin
  Write(in "input:")
  Read(out a)
  Write(in "output: " in a*a)
  Read()
end